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DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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OTHER $s 
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TAL EQUIPMENT 


FACILITY: F11ACP Structure Level 2 
i ABSTRACT: 


This module contains routines for basic block 1/0, as well 
as the buffer management mechanism. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 13-Dec-1976 22:48 
i MODIFIED BY: 


v02-003 ACG0157 Andrew C. Goldstein, 13-Mar-1980 14:43 
Reverse LRU ordering of buffers in multi-block read 


A0102 ACGO117 Andrew C. Goldstein, 16-Jan-1980 17:00 
Return true 1/0 status on ACP 1/0 errors 
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RDBL 1b-se -1984 01:13:31 VAX-11 Bliss-32 V4.0-742 Page 2. 
yoee 000 1 ~8ep-19 4 93:33:25 DISKSVMSMASTER:CF11A.SRCIRDBLOK.B32; 1 ° (1). 
3 28 038 1! A0101 ACG0106 Andrew C. Goldstein, 15-Jan-1980 15:55 
3 26 Fes } Change cache descriptor sizes to words | 
o> OF 7 ee A0100 §=©ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:03 
.: @ +} Previous revision history moved to F11A.REV | 
ss. 1 !ee 
>; 664 4 1 
3; 6 2 3 
: 08 § 1 LIBRARY ‘SYSSLIBRARY Lig ,t52"; 
H 6 1 REQUIRE "SRC$:FCPDEF.B832'; 
3 o8 § : 
; % 1 FORWARD ROUTINE 
cs ae im INIT_POOL : NOVALUE, ! initialize the buffer pool 
3 i} $ 1 FIND BUFFER, ! find an appropriate 1/0 buffer 
ee 1 READ BLOCK, ' read a bloc 
; | 6f6 8 1 RESET_LBN : NOVALUE, : ass gn new LBN to a buffer 
5 75 9 1 WRITE BLOCK : NOVALUE, ' write a block 
; 4 0 1 CREATE BLOCK, ' fabricate a buffer 
Ae 91 1 MARK_DIRTY : NOVALUE, ' mark buffer for write-back 
: 78 3 1 INVACIDATE : NOVALUE, ! invalidate a buffer 
. 93 1 WRITE _HEADER : NOVALUE, ! write file header 
; 8 94 1 FLUSH_BUFFERS : NOVALUE, ' flush all dirty buffers 
3; #81 395 1 FLUSH_FID : NOVALUE; ! flush a file from the pool 
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Number of buffers in each pool | 
’ | 


MNES LEE 


OWN 


3 3 96 1 lee ; 
: 4 ae $ 
3 5 a8 ! } Buffer pool data base. ; 
5 ; ; 
: § 400 1 ! The root of the buffer data base is the pool vector which is used to index | ; 
5 8 401 1 ! a block type into the buffer pool used for that type. The buffer pools are ; 
; 8 4 ¢ 1 ! managed by 3 vectors, indexed by the poo} code. The first vector contains : 
; 90 4 1 ! the buffer index of the first buffer assigned to each pool. The second ; 
3 91 404 1 ! vector contains the number of buffers in each pool. The third vector : 
3 38 Be8? : ; contains the Listheads for the LRU List of each pool. : 
: 94 40? 1! The buffers themselves are a block vector. Each buffer is identified by ; 
; 95 408 1 ! its address to the outside world, and internally by its vector index : 
; «6% 409 1! (the two are interchangeable in the obvious manner.) Associated with the : 
: 97 0410 1 ! buffers are status vectors: the UCB address of the currently resident ; 
; 98 0411 1 ! block (0 if none), the LBN of the currently resident block, the LRU List ; 
: 99 41g 1! entry, the file 16 to which the block belongs, and the dirty bit. ; 
: 100 41 1! ; 
; 101 0414 1 !<- ; 
3 In 0415 1 : 
s 10 0416 1 ; 
: 104 0417 1 ! Define the Layout of the buffer pool. The pool descriptors are filled in ; 
; 105 0418 1! by the pool initialization code. Note that each pool must consist of one ; 
: 106 0419 1 ! virtually contiguous area. Note also that the storage map buffers are : 
; 107 0420 1 ! allocated first. This causes tne buffer sweep at the end of each operation ; 
3 is O42 ! to write out the storage map blocks first, resulting in maximum safety. : 
: 110 O43 1 : 
: 111 0424 1 LITERAL : 
: Ne 0425 1 POOL _COUNT = 3; ! number of pools : 
s ¥ 0426 1 ; 
3; (116 0427 1 MACRO : : 
3 419 0428 1 LRU_FLINK = 0,0,32,0%, ! LRU entry forward Link : 
; 118 be 4 : LRU_BL INK = 4,0,32,0%; ! LRU entry back Link ; 
: 118 0431 1 ! Buffer pool vector 

: 136 be8s 1 

r \¢1 0434 1 BIND 

se 4 0435 1 POOL _TABLE = UPLIT BYTE ( 1, ' file headers 

: 12 0436 1 0, ' storage map 

3 126 ak t4 1 as ' directories 

: 125 0438 #1 hs ! index file blocks 

. 4 $ ett 1 2 ' random data blocks 

>. 440 1 ) : VECTOR C,BYTE): | 

: 128 Ree] 1 

s 129 rr 1 ! Base index of each buffer pool 

3; 150 Ret 2s 

s 131 444 1 

: 13 Be 5 1 OWN 

; 4 4 § 1 POOL _BASE : VECTOR CPOOL_COUNT, WORD]; 

: 134 4 1 

i HR ha 

: 139 450 1 

; 138 451 1 

; 139 452 1 


POOL SIZE : VECTOR CPOOL_COUNT, WORD); 
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SIDE EFFECTS: 
pool initialized 


GLOBAL ROUTINE INIT_POOL : NOVALUE = 

lee 

i 

FUNCTIONAL DESCRIPTION: 

This routine initializes the buffer pool. It creates sufficient 
virtual space for the desired size buffer pool and sets up the 
descriptors. 

i CALLING Pee nce: 

INIT POOL 

i INPUT PARAMETERS: 

NONE 

i IMPLICIT INPUTS: 

pool Goscrierer vectors 

ACP$GW_MAPCACHE: number of bitmap buffers to allocate 
ACP$GWHDRCACHE: number of header buffers to allocate 
ACPS$GW_DIRCACHE: number of directory buffers to allocate 
i OUTPUT PARAMETERS: 

NONE 

i IMPLICIT OUTPUTS: 

NONE 

ROUTINE VALUE: 

NONE 

i 

i 

i 

i 


BEGIN 
LITERAL 
EXEC_MODE 
LOCAL 
MAP _COUNT, 
R-COUNT, 


DIR C 
BUFFER Ride, 
SIZE_NEEDED, 
PAGE COUNT, 
SPACE_DESC’ 


EXTERNAL 
ACPS$GW_MAPCACHE 


ACPSGW_HDRCACHE 
ACP$GW_DIRCACHE 


: VECTOR (2); 


—, 
ee 
= 


' code for EXEC access mode 


number of map buffers 

number of header buffers 

number of S Ercectory ote 
number of buffers in pool 

total virtual space needed 

space actually obtained 
descriptor of retun oom SEXPREG 


: WORD ADDRESSING_ oe (ABSOLUTE), 


r of onete} buffers to use 


umoe 
: WORD ADDRESSING _RODE (ABSO 


r of header buffers to use 


numbe 
: WORD ADDRESSING _RODE (ABSOLUTE); 


'“number of d rectory buffers to use 


~w 


RE JRDBLOK .832; (39 


1$-seo-1986 O1:15:5)  VAN-IT BLisecs2 vé.g-742 Page 


' Compute the total virtual space needed and create it. The space needed is 
the total number of buffers plus the descriptor space - 161 bits per buffer. 


SEXPREG (PAGCNT = “SIZE NEEDED, ACRODE = EXEC_MODE, RETADR = SPACE_DESC); 
! Compute the space we actually got and make sure it is at least the minimum. 
: If it ‘s less then we asked for, divide it up in the ratio 1:1:6. 


PAGE COUNT = ¢ (, rene DESCC1] = .SPACE_DESCLO]) / 512 + 1; 
THEN SEXTT (CODE = SS$_INSFMEM) ; 


IF .PAGE_COUNT LSSU .SIZE_NEEDED 
THEN 


BEGIN 
BUFFER SIZE = (.PAGE COUNT*4096) / 


Bo 
Bf 
im 
; § 6 
ia 
Bf 
: 
ie 


4257 
6 564 MAP_COUNT = HDR COUNT = .BUFFER size 7’: 
5 565 DIR “COUNT = .BUFFER_SIZE = (.MAP_COUNT + .HDR_COUNT); 
33 369 ' 
56 568 ! Allocate and set up the pointers for the buffer descriptors and the buffers 
57 569 i themselves. 
58 570 i 
59 571 
60 276 BUFFER_LRU = .SPACE_DESC(0); 
61 57 BUFFER-FID = .BUFFER_LRU + .BUFFER_SIZE*8; 
o¢ 574 BUFFER_LBN = .BUFFER_FID + .BUFFER_SIZE*4; 
6 575 BUFFER_UCB = .BUFFER_LBN + .BUFFER SIZE*4; 
64 576 BUFFER-DIRTY = .BUFFER_UCB + .BUFFER SIZE*4: 
#4 yA BUFFERS = .BUFFER_DIRTY + (.BUFFER_STZE+7)/8 + 511 AND NOT 511; 
67 579 POOL_SIZECO] = .MAP_COUNT; 
68 580 POOL _SIZEC1) = .HDR_COUNT; 
69 581 POOL_SIZEC2) = .DIR_COUNT; 
70 5 § POOL BASECO) = 0; 
71 5 POOL. *ASEC1) = .MAP_COUNT; 
7 5 L-BASEC2]) = .MAP-COUNT + .HDR_COUNT; 
oe 33 BUFFER_COUNT = .BUFFER_SIZE; 
75 289 !' Loop for all pools. First init the LRU List head to be empty. Then loop 
4 4 for all buffers in each pool, Linking each buffer into the pool LRU Listhead. 
78 590 
iy 23) NNGEGIN FROM 0 TO POOL_COUNT-1 DO 
81 298 L_LRUC.POOL, LRU_FLINK] = POOL_LRUC.POOL, LRU_FLIN WK}: 
ope Poor “LRU -POOL, LRU “BLINK = POOL”  LRUL.POOL, LRU- FLINK); 
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RDBL 5=$ep-1984 01:13:31  VAX=11 Bliss-32 V4.0-742 7 ROE 
yOe+000 8ep-19 4 Pe Hee DISKSVMSMASTER:CF11A.SRCIRDBLOK.B32; 29 * 63) vO4 
: INCR I FROM 0 TO .POOL_SIZEC.POO 
3 5 238 INSQUE (Bur FER LUC -POOL_BAS Oo J") “Fo0t °. -1l, LRU_FLINK]I, 
3 235 L_CRUC.POOL, LRU_BLINK]) 
; bs END; 
: 289 01 1 END; ! end of routine INIT_POOL 
TITLE 


IDENT \WO6-000\ | 
-PSECT S$CODES,NOWRT,2 
02 01 02 00 01 O0000 P.AAA: .BYTE 1, 0, 2, 1, 2 : 
-PSECT S$LOCKEDD1$,NOEXE,2 
00000 POOL at 


6 
2 
7 3 
$0010 POOL LRU: 


| 

-BLKB 

00028 BUFFER_LRU: | 
0002C BUFFER_F ID: 
00030 BUF FER_LBN: 

00034 BUF FER_UCB: | 

00038 BUFFER_DIRTY: 

BLK 


-BLKB 
0003C BUFFERS: .BLKB 
00040 BUFFER COUNT: 


00006 
. 00008 POOL, sizés 


ACP sou. MAPCACHE 
~EXTRN ACP$GW_HDRCACHE 
~EXTRN ACPS$GWDIRCACHE 
~EXTRN SYSSEXPREG. SYSSEXIT 


.PSECT $SCODE$,NOWRT,2 | 


POOL _TABLE= AAA 
EXTRN 


O1FC 00000 .ENTRY Init POOL . 5, ay" R2,R3,R4,R5,R6,R7,RB : 0482. 
8 0000° cr i 2039 OVA BUFFER LR 
6 000000006 of : SOA MOVZWL SRACPSGW. MAPCACHE, RO 3 0544 
3 3 11 BNEQ 1s ; | 
4 0 18 1$: MOVL RO RAP COUNT : 
0 000000006 9F 1 MOVZWL a@#ACPS$GQ_HDRCACHE, RO : 0545 
3 3 $8 BNEQ 2$ ; 
50 1 OD 0 MOVL #i, RO 3 
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RO, HDR_COUNT 
a#ACPS$cO_DIRCACHE, RO 

Rye 

ose RO 

RO. DIR_COUNT 

HDR_COUNT, MAP_COUNT, RO 
DIR-COUNT, RO, BUFFER_SIZE 
#6] BUFF R_S1ZE, RO 

4095 (RO) 

#4096, RO 

BUFFER_SIZE, RO, SIZE_NEEDED 
#i, =(SP) 

SPACE_DESC 

SIZE_REEDED 

#4, SYSSEXPREG 

SPACE _DESC. SPACE_DESC+4, R3 
#512, -R 

PAGE COUNT 

PAGE -COUNT, a5 

#292, <(SP 


SP) 
#1, SYSSEXIT 
paG “COUNT, SIZE_NEEDED 


MAP_COUNT, POOL_BASE+2 

HDR~COUNT, MAP COUNT, POOL_BASE+4 
BUFFER SIZE, BOFFER_COUNT 

POOL LRUCPOOLI, R1 

POOL LRU*4CPOOL] 


POOL_SIZECPOOLJ, R3 
“i, T 


POOL _BASECPOOL], R1 


8 
(3). 


0546. 


; Routine Size: 


E7 
CA 


305 bytes, 


1 
i 


Routine Base: 


: 8 
ep- 
=iS5- 


66 88 


8$: 


rmwnm—or 


Oo L eu 


1828 
18 
6 
4 
8 
C 
0 


SCODES + 0005 


1382 93:35:23 


Liss-32 
MASTER 


DISkSvmS 


Poot brERUCauERt J, R4 


FER_LRUCR1 
aSP)s, “a0(R4) 


I, 
a2, POOL, 6$ 
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RDBLOK 18-sep-19 4 01:13:31 VAX-11 Bliss-32 V4.0-742 Page 10 
v04-000 127808- 1 3b Per ped | DISKSVMSMASTER:CF11A.SRCIRDBLOK.832;1 . (4) 
: 4! 868 ! ROUTINE FIND BUFFER (LBN, TYPE, COUNT, FOUND_COUNT) = . 
: 598 O04 1 14+ : 
; 294 605 1! : 
; 295 B98 ! FUNCTIONAL DESCRIPTION: ° 
: 4 . 
; 3 0608 1! This routine searches for a buffer suitable for the indicated ; 
; 298 +484 a block(s). It looks first for a buffer containing that block; failing : 
: 4 iY 1 ; that, it finds free buffers or frees them. : 
s 501 Ost¢ 1 ! CALLING SEQUENCE: ’ 
$ 4 Bet? ! FIND_BUFFER (ARG1, ARG2, ARG3, ARG4) 
: 304 0615 1 ! INPUT PARAMETERS: 
; 305 0616 1! ARG1: LBN of first desired block 
: 306 0617 1! ARG2: type code of buffer 
; 307 0618 1! ARGS: Length of buffer desired in blocks 
; 308 0619 1! 
; 309 0620 1 ! IMPLICIT INPUTS: 
; 310 0621 1! CURRENT_UCB: UCB of device in use 
; V + ¢ : DIK_FCB: FCB of directory file 
; 31 0624 1 ! OUTPUT PARAMETERS: 
3 $e ge 2 : } ARG4: number of blocks of buffer reserved 
; 16 0627 1 ! IMPLICIT OUTPUTS: | 
' ie 0628 1! BUFFER_LBN: (of returned buffer(s)) LBN of block. 
; 318 0629 1! BUFFER_UCB: (of returned buffer(s)) CURRENT_UCB if block was resident, 
; 319 0630 1! zero if new buffer 
§ #59 0631 1! | 
3 21 ott) 1 ! ROUTINE VALUE: , 7 
3 $56 0633 1! index of first buffer found 
° 32 0634 7 3 | 
. 3526 0635 1 ! SIDE EFFECTS: . : 
s 325 0636 1! LRU List relinked, buffers may be written 
; 326 0637 1! | 
3 ber 0638 1 !-- 
3; See 0639 1 | 
5 $3 0640 BEGIN 
5 0 0641 | 
; 331 0642 LOCAL 
: 32 06435 ‘ ! index of found buffer 
- 7 0644 x ' number of found buffers 
5 <0 O64 POOL, ! index of pool to use 
: 5 646 NEXT_LBN, ' next higher LBN in poet 
3 $9 poet LRU_ENTRY : REF BLOCK; ! pointer to buffer LRU entry 
: 38 0649 EXTERNAL 
; 339 8030 CURRENT _UCB : REF BBLOCK, ' UCB of current device 
: 340 51 CURRENT_VCB : REF BBLOCK, ! VCB of current device 
: 4) 026 CURRENT_F IB : REF BBLOCK, ' address of FIB of current operation 
3 § be PMS_TOT_CACHE, ' cumulative count of buffer cache hits 
; 654 FCB : REF BBLOCK ! airectory FCB 
> 344 655 ACP$GB_MAXREAD BYTE ADDRESSING_MODE (ABSOLUTE); 
: 5 2$ !"maximum number of blocks to read 
; 5346 65 
3 347 658 
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First search the indicated eerrer pool for a buffer Eqazatntng the 
desired LBN and UCB. Also track the LBN of the next highest block in the 
cache. Note thet we assume phat bl ck type classes a 
v 


are ' 
nonintersect ng sets, and thus eyo d having the same block show up in 
multiple pools by good behavior in the file system. 
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POOL = .POOL_TABLEL.TYPE); 
NEXT_LBN = -T; 


I= ¢ 
INCR J FROM .POOL_BASEC.POOL] TO .POOL_BASEC.POOL] + .POOL_SIZEC.POOLJ - 1 


IF BUFFER. UCBC.J] EQL .CURRENT_UCB 
BEGIN 
IF .BUFFER_LBN J GEQU .LBN 
AND .BUFFER“LBNL.J) LSSU .NEXT_LBN 
THEN NEXT_LEN = "BUFFER _LBNC.J7; 
If .BUFFER_LBNC.J] EQL .LBN 
THEN EXITLOOP .J 
END 


& FW —OOCONOUS Wn -O0® 


! If we found a block, pull the buffer out of the LRU and count a cache hit. 
! Link the butter onto the end of the LRU List to indicate recent use. 
On a cache hit, we always return aM one block. 
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IF _.] NEQ -1 
THEN 


BEGIN 
REMQUE erty: atnue 1, LRU_FLINK], LRU_E 


Be Se Se Be Be Se Se Se Se Se Be Se Se Se Se Se Se Se Se Ge Se Se Ge Fe Se Se Ge Ge Se Ge Se FH Se Se Se Ge Se Ge Ge Ge Ge Fe Se Se Ge Se Se Se Se Se See ee Ge ee Se ee 
Re Se Se Be Se Se Se Be Be Se Se Se Se Se See Se Se Be Se Se He Se Sete Ce Se Se Se Se Ge Se Se Se Ge Be Se Se Se Se Se Se Fe Se Se Se Se Se ee Se SH Se Se Se Se ee we 


6 INSQUE _( Mag f00l Cru POOL, LRU. NBCINKD) ; 

8 PMS_T CHE " T_CACHE + 1; 

84 3932 =FOOND "tou 1; 

BO 

87 698 ! Get the first buffer on the LRU. If multiple buffers are requested, 

88 99 i grab ogetetonet buffers in ascending memory order until we hit the end of the 
89 700 i peeks, ‘ stop if we hit a block that is ol ready in the cache (recorded by 

90 701 i . If ve stilt need more, get them in descending memory order. Th 
91 7 § i Loop” iy all found buffers, relinkin ng them onto the LRU in ascending 

4 , ? order and writing them if they are dirty. 

94 705 

95 re ELSE 

98 70 BEGIN 

398 re I = (,POOL_LRUC.POOL, LRU_FLINK] = BUFFER_LRUCO, LRU_FLINK]) / 8; 

99 at N = .COUNT; 
400 711 IF .N GIRU .ACP$SGB_MAXREAD 
401 re THEN NN = ,ACP$GB_MAXREAD; 
£06 71 IF .NEXT_LBN = .CBN LEQU . 

$2? ay THEN N = .NEXT _LBN - .LBN; 
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-Sep-1 D1 SKSVMSMASTER CF11A.SRCIRDBLOK.B32; ‘ (4) | 
IF, POOL. SIZEC.POOL] + .POOL_BASEL.POOL] = .1 LSS .N 


BEGIN 
IF_ .POOL_SIZEC.POOLJ LEQ .N 
THEN 


sr 


se 
~Po 


BEGIN 
1 = ,POOL_BASEL.POOL); 
N = .POOL-SIZEL.POOLJ; 


ELSE 
I = ,POOL_SIZEC.POOL] + .POOL_BASEC.POOL] = .N; 


ND 
-FOUND_COUNT = .N; 
DECR J FROM .N-1 TO 0 
DO 


BEGIN 
REMQUE (BUFFER LRUC.1+.J, LRU_FLINK], LRU_ENTRY); 
INSQUE (.LRU_ERTRY, ‘Poot LRUC.POOL, LRU_ BLINK]): 


IF .BUFFER_DIRTYC.1+.J) 
THEN WRITE_BLOCK (BUF FERSC. 1+.J]); 


BUFFER_UCBC.1+.J] = 0; 
BUFFER-LBNC.I+.J) = .LBN + .J; 


case - TYPE FROM O TO 4 OF 
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| 
| 
| 
| 
inex we HEADER_ TYPE]: ohh Ed a SS = 1; 
BITMAP_TYP BUFFER_FIDL.1+.JJ = 2; 
DIRECTORY_ TYPE): BEGIN 
BUFFER_FIDC.1+.J] = .DIR +1 5 theme adleaa teat 
IF . CURRENT _VCBLVCB$V 4D 
? eg (BUFFER_FIDC.1+.J )<16,8> = .DIR_FCBCFCBSB_FID_NMX); 
4 CDATA_TYPE): BEGIN | 
4 BUFFER_FIDC.1+.J] = .CURRENT_FIBCFIBSW_FID_NUM); 
44 IF .CURRENT VCBCVCBSV EXTE J | 
re a: (BUFFER_FIDC.1+ +,.J))<16,8> = .CURRENT_F IBCFIBSB_FID_NMX); | 
ret POyTRANSEs (BUG_ CHECK (BADBUF TYP, FATAL, ‘Bad ACP buffer type code’); 0); | 
44 8 END; 
44 END; 
44 0 
450 1 RETURN .J; 
451 ¢ ; 
452 6 END; ! end of routine FIND_BUFFER 


.EXTRN CURRENT UCB. CURRENT _VCB | 
“EXTRN CURRENT PAS, Tor CACHE | 
SEXTRN DIR_FCB; ie ésce XREAD | 


“EXTRN BUGS_ sesaurres 
00000 FIND_BUFFER: 


} 
8 | 
ROBL 18- Sep-1984 :31.-- VAK"11_Bliss-32_V4.0-742 e 13 
yOee 000 12-908- 138 93: 43:3} :48  DISKSVMSMASTER:CF11A.SRCIRDBLOK.B32; 1 29 (4) | 
«WORD Save R2, R3, R4_RS,R6,R7,RB : 0602 : 
0000" CF 9 3 ROVAB BUFFE FID Rb : : 
FEB CF 3 MOVAB bla 3 0666 : 
8 BC40 ‘ MOV ZBL arvPe * POOL : : 
1 01 CE MNEGL (BN + 0667 : 
4 D4 AB4S $C 00014 MOV ZL Hi, Ne ASE POOL), : 0670 : 
3 DC AB4 : 19 MOVZWL poOL $1 size POOL], RS ; : 
56 4 5 § 1 ADDL : : 
0 FF a 9 MOV Rene}: , i t 0672 : 
00006 CF 08 8840 b1 : 1$ CPL UFFER_UCBLJJ, CURRENT_UCB : : 
52 04 884 06 1 MOVL UFFER_LBNCJJ, R2 ; 0675 : 
04 AC D1 000 CMPL LBN ; : 
1F QOO3A BLSSU 3 ‘ 
51 D1 0003C CMPL  R2, NEXT_LBN + 0676 ; 
1E 0003F BGEGU 2$ ; : 
51 D0 00041 MOVL = R, NEXT _LBN + 0677 ; 
04 AC D1 00044 2$ CMPL sR + 0679 ; 
9 if} 0048 BNEQ 38° ; : 
52 0 DO 0004A MOVL J + 0680 : 
07 11 00040 BRB a ; : 
D5 50 56 F2 OO04F 3$: AOBLSS R6, + 0672 F 
52 o1 CE 00053 MNEGL #1, 1 + 0670 : 
FFFFFFFF © 8F 2 D1 9006 4$: CMPL i #1 + 0689 : 
1¢ 13 00050 L § : ; 
50 FC B842 7E 0005F OVAQ @BUFFER LRUCII RO + 0692 ; 
57 6 OF 0064 REMQUE (RO), LRU ENTR ; ; 
50 E8 A845 7E 00067 POOL _LRU+% POOL], RO + 0693 r 
00 80 67 OF 0006C INSQUE (LRU ENTRY? ) : : 
00006 CF 06 00070 PMS_TOT CACHE > 0694 ; 
10 BC 61 DO 00074 MOVL @F OOND_ COUNT + 0695 F 
00F4 31 00078 BRW + 0689 : 
£4 AB4S 7F 0007B 5S: PUSHAQ POOL LRUCPOOL] : 0708 : 
59 9 FC AB C3 0007 SUBL FFER_LRU, a(SP)+, RO : F 
5 3 08 C7 00084 DIVL 8 RO: I : : 
0 o¢ AC DO 0088 MOVL COUNT : 0710 : 
56 000000006 9F 9A 000 ¢ MOVZBL SRACPEGB _MAXREAD, R6 : 0711 ; 
56 30 D1 0009 CMPL NN, RO : ; 
g 1 0096 BLEQU 6$ : : 
50 6 10 0009 MOVL 6, N : O72 : 
1 04 AC C2 00098 68: SUBL2 LBN, R1 : 071 : 
50 51 D1 0009F CMP Ri, N : : 
; 1A Ae BGTRU 7$ : : 
50 DO 000A MOVL 1, N + 0714 : 
51 4 ¢ A? 7$ ADDL R4; R3, RI : 0716 
66 51 2 C3 000AB SUBL3 I, R1, R6 : 
50 D AF CMPL = R6, ‘NN : 
11 18 000B2 BGEQ %$ ; 
50 33 D1 B4 CMPL =r R3, N : 0719 
4 B7 BGTR 8$ 3 
52 4 D B89 MOVL R4, I : 0722 
3D BC MOVL R3, N : 07 
a BF BRB 93 : 0719 
a 10 3 0 5 ft §§ moet N BF OUND COUNT : 88 
BS H D t8 MOVL ON. J . : 0730 
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16-Sep-1984 01:13:3 VAX=-11 Bliss=32 V4.0-742 Page 14 
aati aet 1 04:33¢2) DISKSVMSMASTER:LF1IA.SRCIRDBLOK.B32:1> (4) 
78 11 000CC BRB 16$ : 
3 cI CE 10$:  ADDL3 J, I, RO + 0733 
40 7€ 0000 MOVAQ aGuF FER LRUCROJ, RO ; 
6 OF D REMQUE (RO), LRU_ENTRY : 
45 7E OOODA POOL LRUSS POOL) RO + 0734 
OF DF INSQUE (LRUTENTRY), @0(RO) : 
3 ¢ ES ADDLS J, 17 R4 + 0736 
4 §1 BBC Ri, SUFFER DIRTY, 118 : 
9 78 3 ASHL #9. R4, R + 0737 
40 9F OOOF PUSHAB @BUFFERSCRO) : 
0000v CF 01 FB O00F4 CALLS #1, WRITE BLOCK : 
8 Big ps OOF9 11$: CLRL @BUFFER_UTBER4] + 0739 
04 8844 4 BC43 9E OO0FD OV @LBNCJJ; @BUFFER_LBNCR4I * 0740 
04 8 AC CF 0104 CASEL TYPE, #6, #4 + 0742 
0010 OO1E 001 01 00109 12$: WORD 138-f $.- : 
15$-12$.- : 
13$-12$.- : 
17$-12$ : 
FEFF 00113 BUGW + 0756 
0000* 0011 «WORD <BUG$_BADBUF TYP! 4> : 
4E 11 00117 BRB 18$ : 
00 8844 01 00 00119 13$ MOVL 4 @BUFFER_FIDCR4J > 0744 
00 8844 02 D0 01 0 14$ MOVL #2, @BUFFER_FIDCR4) + 0745 
40 11 00125 BRB 18$ F 
50 00006 CF pd 0127 15$:  MOVL DIR FCB, RO ; 
00 8844 34 AO 3C 001 MOVZWL 36(RO), @BUFFER_FIDCR4J ; 
51 00006 CF 00 001 MOVL CURRENT vCB, R1 ; 
2B 0B OAT 05 €1 001 BBC #5, 11(R1), 18$ : 
00 8844 DF 0013¢ PUSHAL @BUFFER_FIOCR4) : 
9€ 08 10 29 AO «FO 00140 INSV  41(RO), #16, #8, a(SP)+ : 
1F 11 0146 16$: BRB 18$ : 074 
50 00006 CF v0 148 17$: MOVL CURRENT_FIB, RO : 075 
00 B844 04 AO 3C 0014 MOVZ2WL 4(RO), SBUFFER FIDCR4) F 
51 00006 CF 00 0015 MOVL CURRENT VCB, RT : 0753 
OA 0B AI 05 €1 0015 BBC #5, 11(R1), 18$ ; 
00 8844 GF 0015D PUSHAL @BUFFER FIOCR4) + 0754 
9€ 08 10 09 #AO FO o161 INSV 9(RO), #16, #8, a(SP)+ : 
02 53 F4 00167 18$ SOBGEQ J, 19$ : 0730 
9 11 0016A BRB abs : 
50 Free 3 Siar + ECVE | a0 + 0761 
be 8195 RET : : 0763 


; Routine Size: 371 bytes, Routine Base: S$CODE$ + 0136 
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| 
: ¢ ¢ , ¢ ! GLOBAL ROUTINE READ_BLOCK (LBN, COUNT, TYPE) = | : 
i 436 766 1 44 | 
; 4 767 1! : 
; 2 8 789 ! FUNCTIONAL DESCRIPTION: | : 
; 460 4S 1} This routine reads the desired block(s) from the disk. ‘ 
; 461 771, =o Blocks are categorized by type to aid buffer management. : 
; 46 ure +! Note that the caller assumes onty one block is ever read; multiple ‘ 
; ret Ag : blocks read ahead are acquired through cache hits on subsequent calls. ; 
i 465 775 1 | CALLING SEQUENCE: | 
; rh ure : READ_BLOCK (ARG1, ARG2, ARG3) : 
: 468 778 i INPUT PARAMETERS: 
; 469 gr? 1 ! ARG1: LBN of block(s) ; 
: 470 4 , ! ARG2: number of blocks to read ‘ 
; of) 44 1 : ARGS: block type code : 
; 47 $788 1! IMPLICIT INPUTS: ; 
3 rth) Boge : CURRENT_UCB contains address of UCB in process . 
; 476 0786 ; OUTPUT, PARAMETERS: 
; 478 0788 1 | 
; 479 C789 1 ! IMPLICIT OUTPUTS: : 
3 ret 44 : IO_STATUS receives status of 1/0 transfer | : 
: 48 o79¢ 1 i ROUTINE VALUE: | : 
; ret 145 : address of buffer containing block : 
: 485 0795 1 | SIDE EFFECTS: ; 
: 486 ore 1 i BLOCK READ ; 
; 488 0798 1 i= 3 
: 489 0799 1 : 
; 490 0800 BEGIN ; 
; 491 0801 : 
; 49 94 LOCAL : 
; 49 080 ! index of buffer used : 
> 49% 0804 STATUS i Q10 service status : 
: 499 0805 FOUND_ COUNT; i count of buffers gotten : 
; 497 0807 EXTERNAL | : 
: 498 8 PMS_TOT_READ ! cumulative count of disk reads | : 
3; 499 0809 CLEANUP~FLAGS : BITVECTOR, ' cleanup action flags : 
; 500 gait DIR_VBN, ' current VBN in directory buffer : 
; 501 811 BITAAP_VBN, ' current VBN in storage oop buffer : 
: a4 aig 10_ CHARNEL ! channel number for all 1/ : 
; 50 81 CURRENT UCB, i UCB of device in process | : 
; be aie 10_STATOS : VECTOR; ! common 1/0 status block | ; 
i 306 816 | 
s 30 81 ! Find a suitable block buffer. If it does not already contain the block, ‘ 
: 509 318 read it. : 
: 510 0820 2° : 
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$ep-1984 01:13:31 VAX= 

16-sep-1964 93:38:28 DISK 
I = FIND BUFFER (.LBN, .TYPE, .COUNT, FOUND_COUNT); 
If .BUFFER_UCBC.1] EQL 0 
THEN 

4 
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BEGIN 
PMS _TOT_R AD = ,PMS_TOT_READ + 1; 
STATUS = $Q1]0W 


. 10. CHANNEL, 
iO$“READLBLK, 

0 STATS 
BUFFERSC.{) 

+ FOUND touNtesi2, 
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STATUS THEN IO_STATUS = .STATUS; 


ar 


O_STAT 


I 

R J FROM 0 TO .FOUND_COUNT~-1 
INVALIDATE (BUFFERSC.1+.J]); 
VBN = 0; 


R 
TRAP VBN 
R. eXTY (, 10. 0; raTUS<O, 16>); 


> nian ieee al = ,CURRENT_UCB; 
RETURN BUFFERSC.1]; 
END; ! end of routine READ_BLOCK 


-EXTRN PMS_TOT -READ, CLEANUP_FLAGS 
-EXTRN DIR7VBN> BITMAP_VBN 
~EXTRN 10 SHAN HAN! NNEL, 10_ Status 


EXTRN 
003c 00000 .ENTRY READ BLOCK, ave R2,R3,R4,R5 
55 00006 CF 9€ 9002 MOVAB 10 STAT 
54 0000' CF H 00 MOV BUFFE ERS Os 
Ge C3 dogs = Guat s SP 
08 AC DD Bat, PUSHL COUNT 
AE BB aap 
FE6E gf F 4 OOtA Rowe’ +e ‘atatecealded 
F8 aus b 00 iste @BUFFER_UCBL1J 
00006 cr Y 6 INCL PMS_TOT_READ 
— 7C C CLRO 0 = (SP) 
7E D4 O0002E CLRL -(SP) 
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; Routine Size: 


a3 
ge 


; re 5 } GLOBAL ROUTINE RESET_LBN (BUFFER, LBN) : NOVALUE = 

a: EP 

; 94 1} 

; ’ 5 : ' FUNCTIONAL DESCRIPTION: 

; § ? } } This routine changes the resident LBN of the indicated block. 
; 4 re 1 ! CALLING SEQUENCE: 

3 5 r¢: ! RESET_LBN (ARG1, ARG2) 

3 $7 of 1 ! INPUT PARAMETERS: 

3 8 1! ARG1: address of block buffer 

; 559 0 os 1! ARG2: new LBN 

; 560 Bae 1! 

; 561 0870 1! IMPLICIT INPUTS: 

; 6¢ . q] : : buffer descriptor arrays 

; Ht $878 1 ! OUTPUT PARAMETERS: 

; 565 0874 1! NONE 

3 08 0875 1! 

3; + 1 1 ! IMPLICIT OUTPUTS: 

; 568 0877 1! NONE 

; 569 9 fh 1! 

; 570 879 1 ! ROUTINE VALUE: 

: ef) 0880 1! NONE 

3 Le: 0881 1! 

; O7 sti 1 ! SIDE EFFECTS: 

: 576 0883 1! backing LBN for buffer altered 

3 Sf 0884 1! 

; ef8 0885 1 !-- 

3 3 0886 1 

; 578 0887 BEGIN 

; of 0888 

; 580 0889 LOCAL 

; 581 0890 1; ! index of buffer 

; 3B 392 

; 4584 089 ! Compute the buffer index from the buffer address supplied. Set the 
3 2B? 0894 ! buffer dirty bit and store the new LBN. 

; e89 8 95 ! 

; 588 thd IF .BUFFER LSSU BUFFERSCO] OR .BUFFER GEQU BUFFERSC.BUFFER_COUNT) 
: : 9 +943 THEN BUG_CHECK (BADBUFADR, FATAL, ‘ACP buffer address out of range of buffer pool"); 
; 591 44 I = (,BUFFER - gurrenscey) / 512; 

3 238 i'd BUFFER_DIRTYC.1] = 1; 

3: 594 908 BUFFER_LBNC.1] = .LBN; 

; 595 904 : 

; 596 905 END; ! end of routine RESET_LBN 


-EXTRN BUG$_BADBUF ADR 
0004 00000 -ENTRY RESET_LBN, Save R2 
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seca 2:25:28 DISKSUMSRASTERSCITIA.SRCIRDBLOK.B32;1°9" (0). 


53 009 ie 9 3 MOVAB BUFFERS, R2 : | 

é 4 AC ‘ CHL i FER BUFFERS + 0897. 

50 04 a2 8 8 ASHL BUFFER_COUNT, RO : 
2 62 C 1 ADDL2 BU FEERS, an? : 

046 AC 01 0001 CMPL BUFFER ; 

04 1F 00019 BLSSU ; 

FEFF 0001B 1$: BUGW + 0898 | 

9000s 0001D «WORD  <BUG$_BADBUFADR! 4> : | 

50 04 Ac 62 C3 OOO1F 28: SUBL3 BUFFERS, BUFFER, RO + 0900 
50 00000200 ef C6 00024 DIVL2 ; 

00 FC OB 0 £2 000 : BBSS QBUFFER DIRTY, 3$ + 0901 

F4 B24 08 AC 00 00030 3$ MOVL one aBuF FER_LBNEI) : 0903 

04 00036 RET + 0905 


; Routine Size: 55 bytes, Routine Base: SCODES + 0346 


’ 9 
16-Sep-1984 01:13:3 VA 
14-Sep-1984 12:29:4 DI 


GLOBAL ROUTINE WRITE BLOCK (BUFFER) : NOVALUE = 


V4.0-74 Pa 0 
F11A.SRCIRDBLOK .B32;1 - Aad 


$3 
= 


tee 
' 


| FUNCTIONAL DESCRIPTION: 


Ss 
33 


! Compute the buffer index from the buffer address supplied. Clear the 
' buffer dirty bit and make sure the buffer ucb address corresponds to the 
: current UCB. 


Pwr OC OONOUEWN OO 


3 1 
: 1 
3 3 1 
4 1 
a 4 
; one 218 : This routine writes the indicated block back to the disk. 
; 606 14 1 | CALLING SEQUENCE: 
3 pet Biz : WRITE_BLOCK (ARG1) 
: 609 io | i INPUT PARAMETERS: | 
; ety ay : : ARG]: address of block buffer 
; 61g 0920 1 | IMPLICIT INPUTS: 
; ei7 2 1 } BUFFER DESCRIPTOR ARRAYS | 
: 615 09 : 1 | OUTPUT PARAMETERS: | 
Pee tei = 
; 618 0926 | i IMPLICIT OUTPUTS: | 
: 838 0958 | | — | 
; st 0929 1! ROUTINE VALUE: 
: 858 098) 1 | ome | 
> 626 095¢ 1 | SIDE EFFECTS: | 
; 625 0935 1! block written 
; 626 0934 1! 
Peo iS 
HBR gcc 
3 631 0939 2 LOCAL | 
; 632 0940 STATUS, ' service status of Q10 call 
; 633 0941 : ! index of buffer 
> 634 Beg 
635 094 EXTERNAL 
636 0944 PMS_TOT_WRITE, ! cumulative count of disk writes 
637 0945 CURRENT_UCB : REF BBLOCK, ! UCB of volume in process | 
638 094 DIR_VBN, ' current VBN in directory buffer 
63 094 BITMAP_V ' current VBN in storage map buffer 
94 UNREC Tount, ' unrecorded but allocated blocks 
94 NEW FID, ' unrecorded new file ID 
950 10_CHANNEL, ! channel number for all 1/0 
Boe 10_STATUS VECTOR ' status block for all 1/0 
95 CLEANUP_FLAGS BITVECTOR, i cleanup action flags | 
095 CONTEXT _SAVE BITVECTOR, ' context save area 
95 CONTEXT START ' start of reentrant context area 


RAAARE ERE RR RRR 


IF .BUFFER LSSU BUFFERSCO) OR .BUFFER GEQU BUFFERSC.BUFFER_COUNT) 


9 
1s -1984 01:13:31 VAX-11 Bliss-32 V4 
1e-8ep-19 4 938 dB ST 


<z 


oo 


0-742 Page 21 
DISKSVMSMASTER:CFI1iA. RCIRDBLOK .B32;1 3) 
THEN BUG_CHECK (BADBUFADR, FATAL, ‘ACP buffer address out of range of buffer pool"); 


SAD 


| 
| . 
} ° 
1 = (BUFFER - Ad ae / $12; : 
BUFFER_DIRTYC.1) = 0; ‘ 
IF .BUFFER_UCBC.1] NEQ .CURRENT_UCB 3 
$6) THEN BOG_CHECK (WRTINVBUF, FATAL, ‘ACP attempted to write an invalid buffer’); : 
| o 
£2§ PMS_TOT_WRITE = .PMS_TOT_WRITE + 1; : 
664 P STATUS = $Q10W ( 3 
665 P EFN = ; 
666 ie CHAN = .JO0_CHANNEL, : 
66 ia FUNC = IOS WRITELBLK, $ 
668 P 1088 = 10 sTAty 3 
669 P Pi os BUPFERS oka ; 
670 P P = 3 
671 p P3 = .BUFFER_LBNC.1) ; 
iH : eS) 
674 ! If an 1/0 error occurrs, we must take special error handling. The first level ; 
5 ! pene Sng currently implemented works for simr'e errors such as a write ; 
7 ! locked disk. It will not correctly unwind 1: su: essful writes have already : 
! occurred. We flush the cache of all buffers containin» blocks from the current : 
+ and disable those portions of the cleanup tha attempt to alter the : 
Ss o . 
i . 
| : 
IF NOT .STATUS THEN IO_STATUS = .STATUS; ; 
1 IF NOT .IO_STATU 3 
99 THEN : 
BEGIN 3 
0994 DIR_VBN = 0; 3 
BITMAP_VBN = 0; ; 
936 NEW FID = 0; 3 
99 UNREC_COUNT = 0; F 
CLEANOP_FLAGS = .CLEANUP_FLAGS AND NOT CLF_M_WRITEDISK; : 
0999 CLEANUP FLAGSCCLF FIXFCBJ = 1; $ 
1000 IF .CONTEXT_SAVE REQ 0 | 3 
1001 THEN 3 
18 4 BEGIN 3 
1005 4 (CONTEXT _SAVE = CONTEXT_START + UNREC_COUNT) = 0; 3 
1004 4 CONTEXT_SAVE = .CONTEXT~SAVE AND NOT CLF_M_WRITEDISK; ; 
1009 4 SONTERT SAVECCLE _F IXFCBI = 1; : 
1909 CHSFILL (0, (.BUFFER_COUNT+7)/8, BUFFER_DIRTYCOJ); 3 
1008 FLUSH FID (0); : 
1009 ERR_ERIT (.10_STATUS<0,16>); : 
1349 END; 3 
1012 END; ! end of routine WRITE_BLOCK : 
-EXTRN PMS_TOT_WRITE, UNREC_COUNT - 
-EXTRN NEW"FID> CONTEXT SAVE | ; 
-EXTRN CONTEXT_START, BOG$_WRTINVBUF 3 
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DISKSVMSMASTER:CF11A.SRCIRDBLOK .B32;1 . had 


; Routine Size: 199 bytes, Routine Base: S$CODE$ + 0370 


F 9 
RDBL 16-Sep-1984 01:13:3 VAX-11 Bliss-32 V4.0-742 
yore 000 1exgee=} 38 93:38:28 
O1FC .ENTRY WRITE BLOCK, Save R2,R3,R4,R5,R6,R7,RB : 0906 : 
8 a: HOVAB CONTERT SAVE, RE : | : 
G CF 9E MOVAB 10 STATOS, R? : | : 
4 CF 9 MOVAB BUFFERS, R6 : : 
66 4 Ac pi 1 CMPL FFER, BUFFERS ; 0962. ; 
50 06 A 3 78 1 ASHL #9, BUFFER COUNT, RO : : 
2 66 CO 0001C ADDL2 BUFFERS, RO : ; 
06 AC D1 On CMPL BUFFER, RO : | : 
04 1F BLSSU : F 
FEE 025 1$ BUGW > 0963) : 
90 Oe 00 - WORD <BUG$_BADBUF ADR! 4> : : 
50 04 aC haa cae (3 0 9 2% sual 3 8 FERS, BUFFER, RO > 0965 : 
00 FC «BG 0 £8 88 5 BBCC I, @BUFFER DIRTY, 3$ + 0966 
00006 CF F8 8640 D4 005A 3$ CPL aguFFER_UCBLIJ, CURRENT _UCB + 0968 
FEFF 0045 BUGW + 0969 
0000* 0004 “WORD <BUG$_WRTINVBUF !4> : 
00006 Fe He Bar Mt IM Perum a 
7E 04 90040 CLRL -(SP) : 
F4 B640 DD O004F PUSHL  @BUFFER_LBNLI) : 
; 7, 0200 Be HE OUST. HBT2, “t5R) ™ 
00 B640 9F 0005¢ PUSHAB a@BUFFERSLRO] : 
ze 7C 00060 CLRQ. = (SP) : 
35 bb pooee PUSHE | 2 ay 
00006 cf DD 90066 PUSHL ,.0_ CHANNEL : 
cromne A OS Ea tnsee GALS gy stsggtow om 
67 50 DO 00076 MOVL STATUS, IO_STATUS : 
7 wees Ra.) ORE 1o Status. se : O89a 
90006 CF D4 00080 CLRL BITMAP_VBN : 0995 
0006 CF D4 00084 CLRL = NEW FI > 0996 
Boone CF D4 00088 CLRL UNREC COUNT 3 0997 
$3335 ep Torettet” BGs ashe BILE ESE ctu toa a. 
a a lad —_ 
90000000« F D4 0 9E CLRL <<CONTEXT SAVE-CONTEXT_START>+UNREC_COUNT> : 1003 
68 10FC00 br A OO0A4 BICL2  #284950560, CONTEXT_SAVE : 1004 
68 ; 8 000AB BISB2 #2, CONTEXT_SAVE : 1005 
50 04 Ab 07 cl OA 6$: ADDL #7. BUFFER COUNT, RO ; 1007 
50 00 bE i 00 2c 0086 movcS #0, (SP), #0, RO, @BUFFER_DIRTY 
oF D4 0008D CLRL = = (SP) : 1008 | 
0000v CF 01 FB OOOBF CALLS #1, FLUSH_FID : 
67 BF 000C4 CHMU ‘10 STATUS : 1009 | 
4 0006 7$: RET " : id 
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H 9 
16-Sep-1984 01:13:3 VAX=11 
13-808-138e 03: 38:2h DISKSVM 
GLOBAL ROUTINE CREATE BLOCK (LBN, COUNT, TYPE, COUNT_FOUND) = 
lee 
! 
FUNCTIONAL DESCRIPTION: 
This routine fabricates block buffer(s) consetning the designated 
block(s). The type code ic as for READ_BLOCK and determ 
pool to be used. 


CALLING SEQUENCE: 
CREATE BLOCK (ARG1, ARG2, ARG3, ARG4) 


i 

i 

i 

i 

i 

i 

i 

i 

' 

' INPUT PARAMETERS: 

! ARG]: LBN to be assigned to block 

! ARG2: number of blocks to reserve in buffer 
} ARGS: block type code 

! IMPLICIT INPUTS: 

CURRENT_UCB: UCB address of device in process 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
ie 


OUTPUT PARAMETERS: 
ARG4: number of buffers found (optional) 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
address of buffer 


SIDE EFFECTS: 
buffer zeroed and recorded as a block read 


BEGIN 
LOCAL 
P ! index of buffer to use 
FOUND _ COUNT; ! number of buffers gotten 
EXTERNAL 
CURRENT_UCB : REF BBLOCK; ! address of device UCB 


! Find an available buffer. Mark it resident and dirty and fill it with 
' zeroes. 


BUFFER (.LBN, .TYPE, .COUNT, FOUND_COUNT); 
TO .FOUND_COUNT = 1 


P 4 
JROBLOK.B32:1°%" (8). 


nes the buffer 


9 | 
IEHRIBEE GUSTER WHIABAER2 AR EBswpevoc.os2-4°% of 


: 773 1080 
: ie 1081 F ACTUAL COUNT GEQU 4 
: 775 1 g HEN .COUNT FO wD = .FOUND_COUNT; 
; £76 19 ; RETURN BUFFERSL. 
3 vee 1088 END; ! end of routine CREATE_BLOCK 
DIRPUT== WRITE_BLOCK | 
| 
O1FC 00000 .ENTRY CREATE_BLOCK, Save R2,R3,R4,R5,R6,R7,R8B : 1023) 
SE 4 C2 9008 SUBL2 #4, SP : 
E DD 0000 PUSHL 1072 
08 AC DD 00007 PUSHL COUNT 
OC AC DD OOO0A PUSHL TYPE 
06 AC DD 9900p PUSHL LBN 
FCDD CF 04 fe Baie CALLS #4, FIND_BUFFER 
58 50 00 0001 MOVL RO, I 
57 01 CE 00018 MNEGL #1, J 
¢! 11 0001B BRB 2$ 
56 58 7 C1 00010 1$: ADDL3 J, 
- 0000" DF 46 00006 cr MY 999 } MOVE EGnnént UCB, a@BUF FER_UCBLR6] 
0200 8F 00 6E SE | 2c 999 D MOVCS #0. (SP), #0, #512, @BUFFERSCROJ 
00 0000" oF 56 = 00038 BBSS 6, aBUFFER_ DIRTY 2$ 1078 
DB 57 6e F 0005 2$: AOBLSS FOUND_COUNT; J, 1$ 1073 
04 6C 91 0004 CMPB CAP) , "#4 1081 
04 1F 0004 BLSSu) 3 
10 BC 6E DO 00047 MOVL § FOUND_COUNT, @COUNT_FOUND 1082 
50 58 09 78 00048 3$: ASHL #9, IT R 108 
50 0000' CF CO 0004F ADDL2 BUFFERS, RO 
04 00054 RET 1085 


; Routine Size: 85 bytes, Routine Base: SCODES + 0444 
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18-50 sep- 130% 9}: 13:3} VAX-11 Bliss-32 V4.0-742 
=-Sep-1984 3 DISKSVMSMASTER:CF11A.SRCIRDBLOK.B32; ie 


: i 1 } : } GLOBAL ROUTINE MARK_DIRTY (BUFFER) : NOVALUE = 

: 7 1 1 '+4 

. 4 1 § % 

; f : : ay : } FUNCTIONAL DESCRIPTION: 

: 1936 ! This routine marks the indicated buffer for write-back. 

; 788 1094 1 ! CALLING SEQUENCE: 

; 789 1095 1 MARK_DIRTY (ARG1) 

; 790 1938 1! 

; 791 192 1 ! INPUT PARAMETERS: 

; 79 1096 1! ARG1: address of block buffer 

3; 1099 1! 

; 79% 1100 1 ! IMPLICIT INPUTS: 

s 795 1101 1! NONE 

; 796 1386 1! 

: 797 110 1 ! OUTPUT PARAMETERS: 

: 798 1388 1! NONE 

; 799 1105 1! 

: 800 1106 1 ! IMPLICIT OUTPUTS: 

: 801 1107 1! NONE 

; 80 1108 1! 

; 80 1109 1 ! ROUTINE VALUE: 

: 804 1110 1! NONE 

; 805 Suen BS 

; 806 nie 1 ! SIDE EFFECTS: 

; 807 111 2 buffer marked for write-back 

; 808 1114 1! 

; 809 1115 1 !<= 

: 810 1116 1 

>; «811 1117 BEGIN 

3 aig 1118 

: 1 1119 LOCAL 

; 814 11s 3 ! index of buffer 

MWg 

3; 817 1138 IF .BUFFER LSSU BUFFERSCO) OR -BUFFER GEQU BUFFERSC.BUFFER_COUNT) 

3 aig 1 : THEN BUG_CHECK (BADBUFADR, FATAL, ‘ACP buffer address out of range of buffer pool’); 

; 530 1136 I = (.BUFFER - BUFFERSCOJ) / 512; 

3 B2e 1168 BUFFER_DIRTYC.1] = 1; 

; $56 1180 END; ! end of routine MARK_DIRTY 

009% -ENTRY MARK_DIRTY, Save R2 
36 0000" CF . MOVAB BUFFERS, R 
6 0 AC 0D CMPL BUFFER, BUFFERS 
3 1F B BLSSU. 1 
50 04 =#OA rs ASHL #9, BUFFER COUNT, RO 
; 2 ¢ 1 ADDL2 BUFFERS, RO 
04 AC D1 0001 CMPL BUFFER, RO 


a 


1086 
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DISKSVMSMASTER:CFIIA 


1124 
1126 
: 1128 
; 1190 


S$, BUFFER, RO 


I 


BADBUF ADR! 4> 
UFFER_DIRTY, 3$ 


<BUGS$ 
8 


ri 
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OoOQoooo°oo 
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49 bytes, Routine Base: S$CODES + 0499 


; Routine Size: 


3 9 
16-Sep-19 
14-Sep-19 


GLOBAL ROUTINE INVALIDATE (BUFFER) : NOVALUE = 


33 
ge 


1:13:31 VAX-11 Blis 0-74 
ree D 1A.SR 
'+4 

' 

i FUNCTIONAL DESCRIPTION: 

This routine invalidates the indicated buffer. 


CALLING SEQUENCE: 
INVALIDATE (ARG1) 


DIRAEUN IS SNE 


INPUT PARAMETERS: 
ARG1: address of block buffer 


‘0D CD CD CD CD CD CD CD CD CD CD CD CD CD 


3 1131 «1 

3 11 ; 1 

; 11 1 

3 1134 1 

36 4 3 

: ned 

; 1139 1 | 

3 1140 1! 

; 1141 1! 

3 1136 1! 

: 839 Wee 4 i 

: 840 1145 1! IMPLICIT INPUTS: 

9 ea 8 | ee 

; 28 1148 1 i QUTPUT PARAMETERS: 

DE ase 5 elite 

: 846 1153. 1 | IMPLICIT OUTPUTS: 

: Be 1183 4 3 it 

: 849 1154 1 | ROUTINE VALUE: 

: Bey 1188 1 | = 

; 85¢ 1157 1 | SIDE EFFECTS: 

; 8 1158 1! buffer contents forgotten 

> 6854 1159 1! 

3 S22 1160 1 !-- 

; 56 1161 #1 

3; 857 1186 BEGIN 

BE HEE 8 soem 

; 860 1165 ‘ ' index of buffer 

: 861 1166 POOL ! index of pool 

3 506 1167 LRU_ENTRY; ' address of LRU List entry 
: Bea 1189 

> 865 1190 ! A buffer is invalidated by zeroing its associated UCB address and 
3 1171 ' clearing the dirty bit. Also, we relink the buffer onto the front of the 
3 1176 ! buffer LRU to encourage its re-use. 

. nee 

: 0 1175 IF .BUFFER LSSU BUFFERSCO) OR .BUFFER GEQU BUFFERSC.BUFFER_COUNTJ 
3 a 1108 THEN BUG_CHECK (BADBUFADR, FATAL, ‘ACP buffer address out of range of buffer poc.'); 
; % 1178 ¢ 1 = (.BUFFER - BUFFERSCOI) / 512; 

: 874 117 POOL = 

3 75 1180 INCR J FROM 0 TO POO ms ae 8) 

; 8 1181 IF .1 LSS .POOL_BASEC.JJ + .POOL_SIZEC.J) 

; 87 11 ¢ THEN EXITLOOP .J 

nt oe 

; 880 1185 BUF FER_ucBt. 1) = 0; 

3 a iy § BUrFER-DIRTYC.1) = 0; 


g 


886 


; Routine Size: 


INSQUE 


1185 REMQUE ete tty LRUC. I, LRU f geet A LRU_ENTR Me 
1190 
1191 END; 


50 


vw 
-o 


EA 


00 


97 bytes, 


(,LRU_EN FRY. “POoL_LRu 


001¢ 

54 0000" CF 4 

64 04 AC D 
fi 

04 Ad ie 
28 64 C 

0 04 AC D1 

04 iF 

ere 

0000* 

04 AC 4 C3 
50 00000200 f 4 

26 C4 A440 3¢ 

5 cc ar C 

52 : CO 

52 1 D1 

07 19 

50 02 F3 

50 01 CE 

F8 B441 04 

FC 8=B4 51 ? 
51 EC B441 7E 

32 61 OF 

50 D4 A440 7E 

60 62 of 
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! end of routine 
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INVALIDATE 


INVALIDATE Save R2,R3,R4 
fpem BUFFERS 
BUFFER COUNT, RO 
BUFF RS, RO 
BUFF R, RO 


<BUG$_BADBUF ADR! 4> 
our cERS. tikes RO 
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288-1984 92:29:48 DISKSVMSMASTERSCFTiAs¢RCIRDBLOK .032;1°9" (175 


BEGIN 
EXTERNAL 

FILE_HEADER : REF BBLOCK; ! address of last file header read 
EXTERNAL ROUTINE 

CHECKSUM; ' compute file header checksum 


! The checksum of the header should be good, since all routines that modify 
! the header bless it with a new checksum when they are finished. Check the 
checksum and write the header. 


| 
Hy GLOBAL ROUTINE WRITE_HEADER : NOVALUE = | 
90 144 
91 : 
; FUNCTIONAL DESCRIPTION: 
Boe This routine writes out the currently resident file header. 
896 i CALLING SEQUENCE: 
244 } WRITE_HEADER () 
899 i INPUT PARAMETERS: 
00 : NONE 
901 ! 
90 ! IMPLICIT INPUTS: 
st FILE HEADER: address of current file header 
905 i QUTPUT PARAMETERS: 
906 ' NONE 
907 ‘ 
908 ! IMPLICIT OUTPUTS: 
oN IO_STATUS: status of I/O transfer 
i ROUTINE VALUE: 
NONE 
i SIDE EFFECTS: 
checksum checked, header written 
les 


IF NOT CHECKSUM (.FILE HEADER) ‘ i 
THEN BUG_CHECK (WRTINVADR, FATAL, ‘ACP attempted to write an invalid file header’); 


WRITE_BLOCK (.FILE_HEADER); 
END; ! end of routine WRITE_HEADER 
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waste HEADER, Save nothing 3 119 
FuLe READER : 123 
00006 4 » THEC ECKSUM 3 
4 . $ : 
: 1238 
<BUG$_WRTINVHDR! 4> : 
: fit E READER : 1240 
FE37 =F 1 BO , GRITE BLOCK : 
04 0 ET : 1242 
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33 
ge 


-Sep-19 
940 GLOBAL ROUTINE FLUSH.BUFFERS : NOVALUE = 
94 '+¢ 
94 ' 
a FUNCTIONAL DESCRIPTION: 
946 This routine writes all buffers which were modified back to the 


disk from whence they came. 


CALLING SEQUENCE: 
FLUSH_BUFFERSCO) () 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
all own storage of this module 
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WR 0 DONOVAN “OVO OVOUlruwn— 
WR O OONOYV FW" OOOVNOuUlw 


SPSRARAARANRAREEE 


. 
! 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
! 
. 
' 
. 
' 
. 
! 
. 
' 
. 
' 
. 
! 
. 
' 
. 
' 
. 
! 
. 
! 
. 
! 
. 
] 
. 
! 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
le 
. 


ta a a 4 4 — 42 > so 4 4s a 2 et = tn id a ss 2s 2b a as ts 8 td a 


POPIPIPIPIPIPIPIPIPYIPPONINIPPIPIPININIPIPINIPOPIPIPUPUPOPOPUPUPUPIPORNORPURUPUPOTD 
COON NNN NNN SOOom 

MEW —OO° ivy SSSS23-3F 

PIF III I| IRI a nt tt 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
964 ROUTINE VALUE: 
965 NONE 
367 SIDE EFFECTS: | 
968 dirty buffers written. 
969 
970 - 
971 
ae BEGIN | 
en | 
376 We simply scan the dirty bit vector and write all buffers marked dirty. | 
97 > 
978 INCR I FROM 0 TO .BUFFER_COUNT-1 DO 
979 8 IF .BUFFER_DIRTYC.1) 
980 ‘ THEN WRITE~BLOCK (BUFFERSC.1)); 
982 85 1 END; ! end of routine FLUSH_BUFFERS(OJ | 
| 
000¢ 000 ENTRY FLUSH BUFFERS, Save R2,R3 : 1243, 
53 0000" CF dO 0000 VL BUFFER_COUNT, R > 1281 
52 01 cE 99 MNEGL #1, I : | 
0000" oF $3 1 Soe 18 C r @BUFFER_DIRTY, 2$ : 1282. 
9 BS 86 5B 6 15 : ASHL =. «#9, I np . : : 1388 | 
FE16 CF sett A 6 : CALLS. arora BLOCK ; | 
E8 52 83 F000 28: ADBLSS RSL TIS" ; 1282 
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33 
ge 


5 oes ! § ! GLOBAL ROUTINE FLUSH_FID (FID) : NOVALUE = 
: 9 1 8 1 164 

3; 9 1 1! 
: 4 43 : +s ! : FUNCTIONAL DESCRIPTION: 
; 990 1292 1! This routine removes from the buffer cache all blocks contained 

5 33) : 37 : } within the specified file. Dirty buffers are written. 
s 338 1295 1 ! CALLING SEQUENCE: 
: 994 1 38 1! FLUSH_FID (ARG1) 
; 995 1297 1! 

; 996 1296 1 ! INPUT PARAMETERS: 

; 99 1299 1! ARG1: file ID of file to flush 
: 998 1300 1! 0 to match all 
; .999 1301 1! 
3; 1000 1302 1 ! IMPLICIT INPUTS: 
; 1001 1305 1! all own srorene of this module 
3 + } Re ! CURRENT_UCB: UCB of current device 

3 1004 1306 1 | OUTPUT PARAMETERS: 

; 1005 1307 1! NONE 

3 1o8 1308 1! 
; 100 1309 1 ! IMPLICIT OUTPUTS: 

; 1008 1310 1! NONE 

; 1009 osu) FE 

; 1010 1 \¢ 1 ! ROUTINE VALUE: 
3; 1011 131 1! NONE 
3 136 1314 1! 
: 101 1315 1 ! SIDE EFFECTS: 

3 1014 916 7 ? dirty buffers written, appropriate buffers invalidated 

; 1015 sur =f 

3 a 1318 1 !-- 

: 101 1319 #1 

; 1018 1320 BEGIN 
3 1019 135) | 
3; 1020 1 ; MAP 
: 1021 132 FID : REF BBLOCK; ! file 1D arg 
: 1956 3 4 LOCAL : 

: 10 1325 I; ' index to buffers 
: 1026 1 $ 
3; 1025 1 3 EXTERNAL | 
3; 1026 1328 CURRENT_UCB : REF BBLOCK, ! address of device UCB 
3 + 7 1 $3 CURRENT_VCB : REF BBLOCK; ! address of current VCB 
: 1059 1334 

3; 10 13 § ! We scan the UCB and FID vectors looking for matches. Buffers that match 

3 193i ’ are written if dirty and then invalidated. 

1088 1338 

: Hi } INCR | —— 0 TO .BUFFER_COUNT-1 DO 

; 1038 1338 IF BUFFER year .t2 EQL .CURRENT_UCB 

3 19 1339 4 AND (.FID EQL 

s 1340 5 OR (. (BUFFER_FIDC.13)<0,16> EQL "4 | 5 aia taal 

> 1039 1341 6 AND (IF .CURRENT veetycasy FxTE ID 

: 1040 1342 6 THEN . (BUFFER_FID .13)216,8> EQL -FIDCF ID$SB_NMX) 
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PSECT SUMMARY 


; | 
: Name Bytes Attributes | 
: SCODES 1489 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, ake od Src b ohh fs 
; SLOCKEDDIS 68 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
$ Library Statistics | 
par oe roe eck.) oe ee Symbols -------- Pages Processing 
5 File Total Loaded Percent Mapped Time 
: -$255$0UA28: CSYSLIBILIB.L32;1 18619 1é 0 1000 00:01.9 
| 
3 COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RDBLOK/OBJ=OBJ$:RDBLOK MSRC$:RDBLOK/UPDATE=(ENHS$:RDBLOK) | 
| 


1484 0: 28:7 + 73 data bytes 


: T : 

; Elapsed Time: 8: 7.3 
: Lines/CPU Min: 2841 

3 eA Sate | 16229 

$ poe | Used: 176 pages 
; Compilation Complete 
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